home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 162 / 162.d81 / b.text charter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  282 lines
  1. 10 poke55,0:poke56,160:clr:rem top$a000
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":s$="    ":dimln$(42)
  4. 40 poke53280,0:poke53281,0
  5. 50 poke53272,23:poke198,0
  6. 100 print"[147][153]  [193]nother [205]ighty [204]oadstar [198]ont [195]harter"
  7. 110 print"      [208]rogram by [204]ee [206]ovak in 1997"
  8. 120 print"[150]      active keys for next screen"
  9. 130 print"  while small portion of chart showing "
  10. 140 print"     [159][198]-[203]eys[154] [193]lter [209]uadrants"
  11. 150 print"            cycles through variations"
  12. 160 print"          [159][208][154] [211]end to [208]rinter #4"
  13. 170 print"          [159][209][154] [209]uit to [204][207][193][196][211][212][193][210]"
  14. 180 print"          [159]_[154] [209]uit to [194][193][211][201][195]"
  15. 185 print"[159]  [208]rogram sends [208][197][212][193][211][195][201][201] strings plus:"
  16. 190 print"  -chr$(27,65,7,13) for [154][197]pson printers"
  17. 200 print"  -chr$(8,13,15) for [154][195]ommodore printers"
  18. 220 print"  -chr$(8,13,15,27,60) for the [154][205][208][211]-1200"
  19. 230 print"              [158][208]ress a [203]ey!"
  20. 240 print"[158] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  21. 250 print"[157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][189]";
  22. 260 print"[221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 270 geta$:ifa$=""then270
  24. 280 print"[147]"
  25. 290 a=1:b=1:c=1:d=1:rem quadrant values
  26. 292 gosub1000:gosub2000:gosub2040:gosub2140:gosub2360:gosub2580
  27. 300 :
  28. 301 rem show chart
  29. 302 :
  30. 310 print"";
  31. 320 foro=1to18:printleft$(ln$(o),19),right$(ln$(o),19):next
  32. 900 geta$:ifa$="p"ora$="q"ora$="_"then4000
  33. 905 z=0
  34. 910 ifa$="[133]"thena=a+1:z=1:ifa=4thena=1
  35. 915 ifa$="[137]"thena=a-1:z=1:ifa=0thena=3
  36. 920 ifa$="[134]"thenb=b+1:z=2:ifb=6thenb=1
  37. 925 ifa$="[138]"thenb=b-1:z=2:ifb=0thenb=5
  38. 930 ifa$="[135]"thenc=c+1:z=3:ifc=6thenc=1
  39. 935 ifa$="[139]"thenc=c-1:z=3:ifc=0thenc=5
  40. 940 ifa$="[136]"thend=d+1:z=4:ifd=6thend=1
  41. 945 ifa$="[140]"thend=d-1:z=4:ifd=0thend=5
  42. 950 onzgosub2040,2140,2360,2580
  43. 960 onzgosub1990,2110,2270,2490
  44. 970 ifzthen300
  45. 980 goto900
  46. 999 print"":poke198,0:end
  47. 1000 t1$   ="[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178]"
  48. 1010 t2$   ="[192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174]"
  49. 1020 b1$(1)="[173][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177]"
  50. 1030 b2$(1)="[192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  51. 1040 b1$(2)="[173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177]"
  52. 1050 b2$(2)="[192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
  53. 1060 b1$(3)="[173][192][177][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192]"
  54. 1070 b2$(3)="[192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][189]"
  55. 1100 x1$(1)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  56. 1110 x2$(1)=" [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]"
  57. 1120 x1$(2)="[221]@[221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
  58. 1130 x2$(2)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221][[221]\[221]][221]^[221]_[221]"
  59. 1140 x1$(3)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
  60. 1150 x2$(3)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221];[221]<[221]=[221]>[221]?[221]"
  61. 1160 x1$(4)="[221][192][221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
  62. 1170 x2$(4)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221][219][221] [221][221][221] [221] [221]"
  63. 1180 x1$(5)="[221] [221]a[221]b[221]c[221]d[221]e[221]f[221]g[221]h[221]i[221]j[221]k[221]l[221]m[221]n[221]o[221]"
  64. 1190 x2$(5)="p[221]q[221]r[221]s[221]t[221]u[221]v[221]w[221]x[221]y[221]z[221] [221] [221] [221] [221] [221]"
  65. 1200 x1$(6)="[221] [221]![221]'[221]#[221]$[221]%[221]&[221]'[221]([221])[221]*[221]+[221],[221]-[221].[221]/[221]"
  66. 1210 x2$(6)="0[221]1[221]2[221]3[221]4[221]5[221]6[221]7[221]8[221]9[221]:[221] [221] [221] [221] [221] [221]"
  67. 1220 x1$(7)="[221] [221][193][221][194][221][195][221][196][221][197][221][198][221][199][221][200][221][201][221][202][221][203][221][204][221][205][221][206][221][207][221]"
  68. 1230 x2$(7)="[208][221][209][221][210][221][211][221][212][221][213][221][214][221][215][221][216][221][217][221][218][221] [221] [221] [221] [221] [221]"
  69. 1240 x1$(8)="[221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  70. 1250 x2$(8)="   [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  71. 1260 x1$(9)="[221] [221] [221]     [221]     [221]     [221]     [221]    "
  72. 1270 x2$(9)=" [221]     [221]     [221]     [221]     [221]     [221]"
  73. 1280 x1$(0)="[221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][171][221] [221][173][221][174][221] [221]"
  74. 1290 x2$(0)="[176][221][177][221][178][221][179][221] [221] [221] [221] [221] [221] [221] [221] [221] [221][189][221] [221] [221]"
  75. 1300 y1$(1)="[171][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219]"
  76. 1310 y2$(1)="[192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  77. 1320 y1$(2)="[171][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219]"
  78. 1330 y2$(2)="[192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][219][192][177][192][179]"
  79. 1340 y1$(3)="[171][192][219][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177]"
  80. 1350 y2$(3)="[192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][219][192][177][192][177][192][179]"
  81. 1400 y1$(4)="[171][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219]"
  82. 1410 y2$(4)="[192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][219][192][178][192][179]"
  83. 1420 y1$(5)="[171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219]"
  84. 1430 y2$(5)="[192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  85. 1440 y1$(6)="[171][192][178][192][219][192][192][192][177][192][178][192][177][192][192][192][219][192][192][192][177][192][178][192][177][192]